data_Compress.asp 深度学习(asp)网址导航 v4.0.1 - ASP源码程序

www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\dataManage\data_Compress.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../"	'相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>数据管理</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css"/>
    <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>

</head>
<body  id="bodyBg1">
<br />
&nbsp; <a href="data_Compress.asp">压缩数据库</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
    <dt>压缩数据库</dt>
    <dd>
    	<br />
<%
		dim rs,sql
		dim tmprs
		dim allarticle
		dim Maxid
		dim topic,username,dateandtime,body

Dim boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")

If dbpath <> "" Then
dbpath = server.mappath(dbpath)
	response.write( CompactDB(dbpath,boolIs97) )
	response.write( "<hr />" )
End If

Const JET_3X = 4


%>    
    
  <form action="" name="form1" method="post">
	  <b>注意：</b>( 需要FSO支持，FSO相关帮助请看微软网站 ) <br>输入数据库所在相对路径,并且输入数据库名称（<font color="red">正在使用中数据库不能压缩，请选择备份数据库进行压缩操作</font>）<br />
	压缩数据库：
        <input name="dbpath" type="text" value="DataBackup\data_backup.mdb" size="50" />
        &nbsp;<br><br>
        <input type="submit" value="开始压缩" /><br /><br />
		<input type="checkbox" name="boolIs97" />如果使用 Access 97 数据库请选择
(默认为 Access 2000 数据库)
	</form>        <br />
    </dd>
</dl>
<br />

</body>
</html>
<%
Call CloseConnDB()

Function CompactDB(dbPath, boolIs97)
	Dim fso, Engine, strDBPath
	strDBPath = left(dbPath,instrrev(DBPath,"\"))
	Set fso = CreateObject("Scripting.FileSystemObject")
	On Error Resume Next 
	If fso.FileExists(dbPath) Then
		Set Engine = CreateObject("JRO.JetEngine")
		
			If boolIs97 = "True" Then
				Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
				"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
				& "Jet OLEDB:Engine Type=" & JET_3X
			Else
				Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
				"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
			End If
		
		fso.CopyFile strDBPath & "temp.mdb",dbpath
		fso.DeleteFile(strDBPath & "temp.mdb")
		
			if err.number="0" then
				CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!<br />" & vbCrLf
				'response.Write CompactDB
			else
				errmsg = "<li>压缩过程中出现错误，具体出错如下：<br />"
				errmsg = errmsg & Err.Description
				err.clear
				response.Write errmsg
			end if
		Set fso = nothing
		Set Engine = nothing
	
	
	Else
		CompactDB = "<li>数据库名称或路径不正确. 请重试!"
		'response.Write CompactDB
	End If

End Function
%>